J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/JMACMENU.Dxr/00047.ls

Text File | 1998-01-22 | 3.4 KB | 179 lines

global g_no, jumplistkey, volset, mno, spno, btnh, btnv, i, halfpno, linkname

on startMovie
  set mycursor to [1, 2]
  set the cursor of sprite 7 to mycursor
  set the cursor of sprite 8 to mycursor
  set the cursor of sprite 11 to mycursor
  set the cursor of sprite 12 to mycursor
  set the cursor of sprite 13 to mycursor
  repeat with i = 17 to 27
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkey to ["M1", "M2", "M3", "M4", "M5"]
  set halfpno to 62
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donext
  if (g_no + 1) = 6 then
    set g_no to 0
  end if
  go(getAt(jumplistkey, g_no + 1))
end

on doback
  if (g_no - 1) = 0 then
    set g_no to 6
  end if
  go(getAt(jumplistkey, g_no - 1))
end

on movielink
  sound stop 2
  go(1, linkname)
end

on doexit
  sound stop 2
  halt()
end

on volcrt
  puppetSprite(31, 1)
  set the memberNum of sprite 31 to volset + 13
  updateStage()
  set the soundLevel to volset
end

on crtopen
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 4
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 3
  updateStage()
  puppetSprite(9, 0)
end

on crtquit
  puppetSprite(10, 1)
  repeat while the stillDown
    set the memberNum of sprite 10 to 6
    updateStage()
  end repeat
  set the memberNum of sprite 10 to 5
  updateStage()
  puppetSprite(10, 0)
end

on crtmg
  set btnh to the locH of sprite spno
  set btnv to the locV of sprite spno
  puppetSprite(spno, 1)
  repeat while the stillDown
    set the locH of sprite spno to btnh + 2
    set the locV of sprite spno to btnv + 1
    updateStage()
  end repeat
  set the locH of sprite spno to btnh
  set the locV of sprite spno to btnv
  updateStage()
  puppetSprite(spno, 0)
end

on crthalf
  puppetSprite(5, 1)
  set the memberNum of sprite 5 to halfpno + mno
  updateStage()
end

on crtback
  puppetSprite(15, 1)
  repeat while the stillDown
    set the memberNum of sprite 15 to 25
    updateStage()
  end repeat
  set the memberNum of sprite 15 to 24
  updateStage()
  puppetSprite(15, 0)
end

on crtnext
  puppetSprite(14, 1)
  repeat while the stillDown
    set the memberNum of sprite 14 to 23
    updateStage()
  end repeat
  set the memberNum of sprite 14 to 22
  updateStage()
  puppetSprite(14, 0)
end

on crtclose2
  puppetSprite(16, 1)
  repeat while the stillDown
    set the memberNum of sprite 16 to 27
    updateStage()
  end repeat
  set the memberNum of sprite 16 to 26
  updateStage()
  puppetSprite(16, 0)
end

on crtyes
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 30
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 29
  updateStage()
  puppetSprite(9, 0)
  puppetSprite(5, 0)
end

on crtno
  puppetSprite(10, 1)
  repeat while the stillDown
    set the memberNum of sprite 10 to 32
    updateStage()
  end repeat
  set the memberNum of sprite 10 to 31
  updateStage()
  puppetSprite(10, 0)
  puppetSprite(5, 0)
end

on backmno
  if (mno > 0) and (mno < 9) then
    puppetTransition(6, 8)
    go("M1")
    exit
  end if
  if (mno > 8) and (mno < 17) then
    puppetTransition(6, 8)
    go("M2")
    exit
  end if
  if (mno > 16) and (mno < 25) then
    puppetTransition(6, 8)
    go("M3")
    exit
  end if
  if (mno > 24) and (mno < 33) then
    puppetTransition(6, 8)
    go("M4")
    exit
  end if
  if (mno > 32) and (mno < 41) then
    puppetTransition(6, 8)
    go("M5")
    exit
  end if
end